﻿Public Class ClsSQLResult
    Dim Result_Number As Integer
    Dim Error_Number As Integer
    Dim Error_Discription As String
    Dim Qry_DataTables As DataTable
    Property Result_ID As Integer
        Get
            Return Result_Number
        End Get
        Set(ByVal value As Integer)
            Result_Number = value
        End Set
    End Property
    Property Error_ID As Integer
        Get
            Return Error_Number
        End Get
        Set(ByVal value As Integer)
            Error_Number = value
        End Set
    End Property
    Property Error_String As String
        Get
            Return Error_Discription
        End Get
        Set(ByVal value As String)
            Error_Discription = value
        End Set
    End Property
    Property QryDataTables As DataTable
        Get
            Return Qry_DataTables
        End Get
        Set(ByVal value As DataTable)
            Qry_DataTables = value
        End Set
    End Property
End Class
